﻿Public Class frmExploit

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.LoadFile("data\hbc43_lego.smi")
        Softmodii.exploit = "lego"
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.LoadFile("data\hbc43_ssbb.smi")
        Softmodii.exploit = "ssbb"
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.Text = "No puedes continuar. Necesitas uno de esos dos juegos para realizar el exploit"
        Softmodii.lbl_titulo.Text = "No puedes continuar"
        Softmodii.btn_next.Enabled = False
        Softmodii.btn_back.Enabled = False
        Softmodii.btn_help.Enabled = False
        Softmodii.btn_print.Enabled = False
        Softmodii.exploit = "NULL"
        Me.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.LoadFile("data\hbc43_ygh.smi")
        Softmodii.exploit = "ygh"
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.LoadFile("data\hbc43_batman.smi")
        Softmodii.exploit = "batman"
        Me.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Softmodii.txtbox_big.LoadFile("data\hbc43_jodi.smi")
        Softmodii.exploit = "jodi"
        Me.Close()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_juego_jodi.Click
        pic_juego_big.Image = My.Resources.lwars
        lbl_juego_txt.Text = "Lego Star Wars"
        lbl_region_txt.Text = "EUR y USA"
        Softmodii.exploit = "jodi"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_juego_brawl.Click
        pic_juego_big.Image = My.Resources.brawl
        lbl_juego_txt.Text = "Super Smash Bros Brawl"
        lbl_region_txt.Text = "USA y EUR"
        Softmodii.exploit = "ssbb"
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_juego_indi.Click
        pic_juego_big.Image = My.Resources.ljones
        lbl_juego_txt.Text = "Lego Indiana Jones"
        lbl_region_txt.Text = "EUR y USA"
        Softmodii.exploit = "lego"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_juego_batman.Click
        pic_juego_big.Image = My.Resources.lbat
        lbl_juego_txt.Text = "Lego Batman"
        lbl_region_txt.Text = "EUR y USA"
        Softmodii.exploit = "batman"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_juego_yugioh.Click
        pic_juego_big.Image = My.Resources.wheelie
        lbl_juego_txt.Text = "Yu-gi-oh! 5D Wheelie Breaker"
        lbl_region_txt.Text = "EUR y USA"
        Softmodii.exploit = "ygh"

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_confirmar.Click
        If Softmodii.exploit = "ygh" And Softmodii.reg = "eur" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_ygh.smi")
        ElseIf Softmodii.exploit = "ygh" And Softmodii.reg = "usa" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_ygh_usa.smi")
        ElseIf Softmodii.exploit = "lego" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_lego.smi")
        ElseIf Softmodii.exploit = "ssbb" And Softmodii.reg = "usa" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_ssbb.smi")
        ElseIf Softmodii.exploit = "ssbb" And Softmodii.reg = "eur" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_ssbb_pal.smi")
        ElseIf Softmodii.exploit = "batman" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_batman.smi")
        ElseIf Softmodii.exploit = "jodi" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_jodi.smi")
        ElseIf Softmodii.exploit = "tales" Then
            Softmodii.txtbox_big.LoadFile("data\hbc43_tales.smi")

        ElseIf Softmodii.exploit = "NULL" Then
            Softmodii.txtbox_big.Text = "No puedes continuar. Necesitas uno de esos dos juegos para realizar el exploit"
            Softmodii.lbl_titulo.Text = "No puedes continuar"
            Softmodii.btn_next.Enabled = False
            Softmodii.btn_back.Enabled = False
            Softmodii.btn_help.Enabled = False
            Softmodii.btn_print.Enabled = False


        End If
        Softmodii.pic_imagenes.Image = My.Resources.hbc11
        Softmodii.lbl_titulo.Text = "Instalación del HBC"
        Softmodii.proceso = "hbc"
        Me.Close()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_juego_none.Click
        Softmodii.exploit = "NULL"
        Me.Close()
        frmExploitLetter.Show()
        

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pic_juego_big.Image = My.Resources.tales
        lbl_juego_txt.Text = "Tales of Symphonia"
        lbl_region_txt.Text = "EUR y USA"
        Softmodii.exploit = "tales"
    End Sub
End Class